Option Explicit
Sub F_Sample055()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    Dim myCon As New ADODB.Connection
    Dim myRst As New ADODB.Recordset
    Dim i As Long
    'wnsA
    myCon.Open ConnectionString:= _
    "Provider=MSDAORA;Data Source=ServerName;User ID=scot;Password=tiger;"
    'wno
    myRst.Open Source:="tdH", ActiveConnection:=myCon
    Worksheets.Add
    With myRst
        'W
        For i = 1 To .Fields.Count
            Cells(1, i).Value = .Fields(i - 1).Name
        Next
        'O
        Range("A2").CopyFromRecordset myRst
        .Close
    End With
    myCon.Close
    Set myRst = Nothing					'
    Set myCon = Nothing
End Sub
